/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc A) / Acorn User China CD-ROM (UK) (Disc A).bin / HENSA / CONVERTER / AUTOUUD.ARC / !AutoUUD_lib_Wimp

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0c f4 20 3e 20 | 57 69 6d 70 0d 00 14 05 |..... > |Wimp....|
|00000010| 3a 0d 00 1e 18 f4 20 a9 | 20 4a 61 6d 65 73 20 42 |:..... .| James B|
|00000020| 65 65 63 68 20 31 39 39 | 36 0d 00 28 05 3a 0d 00 |eech 199|6..(.:..|
|00000030| 32 41 85 20 32 35 35 2c | 22 54 68 69 73 20 69 73 |2A. 255,|"This is|
|00000040| 20 70 61 72 74 20 6f 66 | 20 41 75 74 6f 55 55 44 | part of| AutoUUD|
|00000050| 20 61 6e 64 20 63 61 6e | 6e 6f 74 20 62 65 20 72 | and can|not be r|
|00000060| 75 6e 20 6f 6e 20 69 74 | 27 73 20 6f 77 6e 22 0d |un on it|'s own".|
|00000070| 00 3c 05 3a 0d 00 46 10 | dd 20 f2 77 69 6d 70 5f |.<.:..F.|. .wimp_|
|00000080| 76 61 72 73 0d 00 50 11 | de 20 77 70 6f 6c 6c 25 |vars..P.|. wpoll%|
|00000090| 20 26 31 30 30 0d 00 5a | 11 de 20 62 6c 6f 63 6b | &100..Z|.. block|
|000000a0| 25 20 26 38 30 30 0d 00 | 64 11 de 20 65 72 72 6f |% &800..|d.. erro|
|000000b0| 72 25 20 26 31 30 30 0d | 00 6e 11 de 20 69 6e 64 |r% &100.|.n.. ind|
|000000c0| 25 20 20 20 26 38 30 30 | 0d 00 78 16 69 6e 64 5f |%   &800|..x.ind_|
|000000d0| 6c 65 6e 25 3d 69 6e 64 | 25 2b 26 38 30 30 0d 00 |len%=ind|%+&800..|
|000000e0| 82 0e 6e 65 78 74 25 3d | 69 6e 64 25 0d 00 8c 05 |..next%=|ind%....|
|000000f0| e1 0d 00 96 05 3a 0d 00 | a0 25 f4 20 69 63 6f 6e |.....:..|.%. icon|
|00000100| 25 3d 2d 31 20 66 6f 72 | 20 72 69 67 68 74 2c 20 |%=-1 for| right, |
|00000110| 2d 32 20 66 6f 72 20 6c | 65 66 74 0d 00 aa 12 f4 |-2 for l|eft.....|
|00000120| 20 73 70 72 69 74 65 24 | 3d 69 63 6f 6e 0d 00 b4 | sprite$|=icon...|
|00000130| 24 dd 20 f2 77 69 6d 70 | 5f 69 6e 69 74 28 61 70 |$. .wimp|_init(ap|
|00000140| 70 24 2c 69 63 6f 6e 25 | 2c 73 70 72 69 74 65 24 |p$,icon%|,sprite$|
|00000150| 29 0d 00 be 15 61 70 70 | 6c 69 63 61 74 69 6f 6e |)....app|lication|
|00000160| 24 3d 61 70 70 24 0d 00 | c8 3b c8 99 20 22 57 69 |$=app$..|.;.. "Wi|
|00000170| 6d 70 5f 49 6e 69 74 69 | 61 6c 69 73 65 22 2c 32 |mp_Initi|alise",2|
|00000180| 30 30 2c 26 34 62 35 33 | 34 31 35 34 2c 61 70 70 |00,&4b53|4154,app|
|00000190| 24 20 b8 20 2c 74 61 73 | 6b 5f 68 61 6e 64 6c 65 |$ . ,tas|k_handle|
|000001a0| 25 0d 00 d2 12 62 6c 6f | 63 6b 25 21 30 3d 69 63 |%....blo|ck%!0=ic|
|000001b0| 6f 6e 25 0d 00 dc 19 62 | 6c 6f 63 6b 25 21 34 3d |on%....b|lock%!4=|
|000001c0| 30 3a 62 6c 6f 63 6b 25 | 21 38 3d 30 0d 00 e6 1d |0:block%|!8=0....|
|000001d0| 62 6c 6f 63 6b 25 21 31 | 32 3d 36 38 3a 62 6c 6f |block%!1|2=68:blo|
|000001e0| 63 6b 25 21 31 36 3d 36 | 38 0d 00 f0 28 62 6c 6f |ck%!16=6|8...(blo|
|000001f0| 63 6b 25 21 32 30 3d 26 | 33 30 31 41 3a 24 28 62 |ck%!20=&|301A:$(b|
|00000200| 6c 6f 63 6b 25 2b 32 34 | 29 3d 73 70 72 69 74 65 |lock%+24|)=sprite|
|00000210| 24 0d 00 fa 20 c8 99 20 | 22 57 69 6d 70 5f 43 72 |$... .. |"Wimp_Cr|
|00000220| 65 61 74 65 49 63 6f 6e | 22 2c 2c 62 6c 6f 63 6b |eateIcon|",,block|
|00000230| 25 0d 01 04 05 e1 0d 01 | 0e 05 3a 0d 01 18 10 f4 |%.......|..:.....|
|00000240| 20 4f 48 20 42 55 47 47 | 45 52 21 0d 01 22 0c dd | OH BUGG|ER!.."..|
|00000250| 20 f2 65 72 72 6f 72 0d | 01 2c 0d ea 20 61 6e 73 | .error.|.,.. ans|
|00000260| 77 65 72 25 0d 01 36 28 | 21 65 72 72 6f 72 25 3d |wer%..6(|!error%=|
|00000270| 9f 3a 24 28 65 72 72 6f | 72 25 2b 34 29 3d f6 24 |.:$(erro|r%+4)=.$|
|00000280| 2b 22 20 28 22 2b c3 9e | 2b 22 29 22 0d 01 40 3a |+" ("+..|+")"..@:|
|00000290| c8 99 20 22 57 69 6d 70 | 5f 52 65 70 6f 72 74 45 |.. "Wimp|_ReportE|
|000002a0| 72 72 6f 72 22 2c 65 72 | 72 6f 72 25 2c 33 2c 61 |rror",er|ror%,3,a|
|000002b0| 70 70 6c 69 63 61 74 69 | 6f 6e 24 20 b8 20 2c 61 |pplicati|on$ . ,a|
|000002c0| 6e 73 77 65 72 25 0d 01 | 4a 27 e7 20 61 6e 73 77 |nswer%..|J'. answ|
|000002d0| 65 72 25 3d 32 20 8c 20 | c8 99 20 22 57 69 6d 70 |er%=2 . |.. "Wimp|
|000002e0| 5f 43 6c 6f 73 65 44 6f | 77 6e 22 3a e0 0d 01 54 |_CloseDo|wn":...T|
|000002f0| 05 e1 0d 01 5e 05 3a 0d | 01 68 20 dd 20 f2 77 69 |....^.:.|.h . .wi|
|00000300| 6d 70 5f 6f 70 65 6e 74 | 65 6d 70 6c 61 74 65 73 |mp_opent|emplates|
|00000310| 28 66 69 6c 65 24 29 0d | 01 72 21 c8 99 20 22 57 |(file$).|.r!.. "W|
|00000320| 69 6d 70 5f 4f 70 65 6e | 54 65 6d 70 6c 61 74 65 |imp_Open|Template|
|00000330| 22 2c 2c 66 69 6c 65 24 | 0d 01 7c 05 e1 0d 01 86 |",,file$|..|.....|
|00000340| 05 3a 0d 01 90 1a dd 20 | f2 77 69 6d 70 5f 63 6c |.:..... |.wimp_cl|
|00000350| 6f 73 65 74 65 6d 70 6c | 61 74 65 73 0d 01 9a 1b |osetempl|ates....|
|00000360| c8 99 20 22 57 69 6d 70 | 5f 43 6c 6f 73 65 54 65 |.. "Wimp|_CloseTe|
|00000370| 6d 70 6c 61 74 65 22 0d | 01 a4 05 e1 0d 01 ae 05 |mplate".|........|
|00000380| 3a 0d 01 b8 1f dd 20 a4 | 77 69 6d 70 5f 6c 6f 61 |:..... .|wimp_loa|
|00000390| 64 74 65 6d 70 6c 61 74 | 65 28 6e 61 6d 65 24 29 |dtemplat|e(name$)|
|000003a0| 0d 01 c2 0d ea 20 68 61 | 6e 64 6c 65 25 0d 01 cc |..... ha|ndle%...|
|000003b0| 46 c8 99 20 22 57 69 6d | 70 5f 4c 6f 61 64 54 65 |F.. "Wim|p_LoadTe|
|000003c0| 6d 70 6c 61 74 65 22 2c | 2c 62 6c 6f 63 6b 25 2c |mplate",|,block%,|
|000003d0| 6e 65 78 74 25 2c 69 6e | 64 5f 6c 65 6e 25 2c 2d |next%,in|d_len%,-|
|000003e0| 31 2c 6e 61 6d 65 24 2c | 30 20 b8 20 2c 2c 6e 65 |1,name$,|0 . ,,ne|
|000003f0| 78 74 25 0d 01 d6 2c c8 | 99 20 22 57 69 6d 70 5f |xt%...,.|. "Wimp_|
|00000400| 43 72 65 61 74 65 57 69 | 6e 64 6f 77 22 2c 2c 62 |CreateWi|ndow",,b|
|00000410| 6c 6f 63 6b 25 20 b8 20 | 68 61 6e 64 6c 65 25 0d |lock% . |handle%.|
|00000420| 01 e0 0c 3d 68 61 6e 64 | 6c 65 25 0d 01 ea 05 3a |...=hand|le%....:|
|00000430| 0d 01 f4 2e dd 20 a4 77 | 69 6d 70 5f 63 72 65 61 |..... .w|imp_crea|
|00000440| 74 65 6d 65 6e 75 28 70 | 6f 69 6e 74 25 2c 65 6e |temenu(p|oint%,en|
|00000450| 74 72 69 65 73 24 2c 77 | 69 64 74 68 25 29 0d 01 |tries$,w|idth%)..|
|00000460| fe 16 ea 20 46 24 2c 70 | 74 72 25 2c 6e 25 2c 63 |... F$,p|tr%,n%,c|
|00000470| 25 2c 65 25 0d 02 08 38 | 70 6f 69 6e 74 25 3f 31 |%,e%...8|point%?1|
|00000480| 32 3d 37 3a 70 6f 69 6e | 74 25 3f 31 33 3d 32 3a |2=7:poin|t%?13=2:|
|00000490| 70 6f 69 6e 74 25 3f 31 | 34 3d 37 3a 70 6f 69 6e |point%?1|4=7:poin|
|000004a0| 74 25 3f 31 35 3d 30 3a | 63 25 3d 30 0d 02 12 3c |t%?15=0:|c%=0...<|
|000004b0| 70 6f 69 6e 74 25 21 31 | 36 3d 77 69 64 74 68 25 |point%!1|6=width%|
|000004c0| 3a 70 6f 69 6e 74 25 21 | 32 30 3d 34 34 3a 70 6f |:point%!|20=44:po|
|000004d0| 69 6e 74 25 21 32 34 3d | 30 3a 70 74 72 25 3d 70 |int%!24=|0:ptr%=p|
|000004e0| 6f 69 6e 74 25 2b 32 38 | 0d 02 1c 3a 24 70 6f 69 |oint%+28|...:$poi|
|000004f0| 6e 74 25 3d c0 65 6e 74 | 72 69 65 73 24 2c a7 65 |nt%=.ent|ries$,.e|
|00000500| 6e 74 72 69 65 73 24 2c | 22 2c 22 29 2d 31 29 3a |ntries$,|",")-1):|
|00000510| 65 6e 74 72 69 65 73 24 | 2b 3d 22 2c 22 3a 6e 25 |entries$|+=",":n%|
|00000520| 3d 30 0d 02 26 13 c8 95 | 20 65 6e 74 72 69 65 73 |=0..&...| entries|
|00000530| 24 3c 3e 22 22 0d 02 30 | 2a 20 20 65 6e 74 72 69 |$<>""..0|*  entri|
|00000540| 65 73 24 3d c1 65 6e 74 | 72 69 65 73 24 2c a7 65 |es$=.ent|ries$,.e|
|00000550| 6e 74 72 69 65 73 24 2c | 22 2c 22 29 2b 31 29 0d |ntries$,|",")+1).|
|00000560| 02 3a 16 20 20 e7 20 65 | 6e 74 72 69 65 73 24 3c |.:.  . e|ntries$<|
|00000570| 3e 22 22 20 8c 0d 02 44 | 29 20 20 20 20 21 70 74 |>"" ...D|)    !pt|
|00000580| 72 25 3d 30 3a 70 74 72 | 25 21 34 3d 2d 31 3a 70 |r%=0:ptr|%!4=-1:p|
|00000590| 74 72 25 21 38 3d 26 37 | 30 30 30 30 32 31 0d 02 |tr%!8=&7|000021..|
|000005a0| 4e 2f 20 20 20 20 46 24 | 3d c0 65 6e 74 72 69 65 |N/    F$|=.entrie|
|000005b0| 73 24 2c a7 65 6e 74 72 | 69 65 73 24 2c 22 2c 22 |s$,.entr|ies$,","|
|000005c0| 29 2d 31 29 3a 65 25 3d | 6e 25 2a 32 34 0d 02 58 |)-1):e%=|n%*24..X|
|000005d0| 18 20 20 20 20 70 6f 69 | 6e 74 25 21 28 32 38 2b |.    poi|nt%!(28+|
|000005e0| 65 25 29 3d 30 0d 02 62 | 30 20 20 20 20 e7 20 c0 |e%)=0..b|0    . .|
|000005f0| 46 24 2c 31 29 3d 22 80 | 22 20 46 24 3d c1 46 24 |F$,1)=".|" F$=.F$|
|00000600| 2c 32 29 3a 70 6f 69 6e | 74 25 21 28 32 38 2b 65 |,2):poin|t%!(28+e|
|00000610| 25 29 2b 3d 31 0d 02 6c | 36 20 20 20 20 e7 20 c0 |%)+=1..l|6    . .|
|00000620| 46 24 2c 31 29 3d 22 2d | 22 20 46 24 3d c1 46 24 |F$,1)="-|" F$=.F$|
|00000630| 2c 32 29 3a 70 6f 69 6e | 74 25 21 28 32 38 2b 65 |,2):poin|t%!(28+e|
|00000640| 25 29 2b 3d 32 3a 63 25 | 2b 3d 31 0d 02 76 30 20 |%)+=2:c%|+=1..v0 |
|00000650| 20 20 20 e7 20 c0 46 24 | 2c 31 29 3d 22 bb 22 20 |   . .F$|,1)="." |
|00000660| 46 24 3d c1 46 24 2c 32 | 29 3a 70 6f 69 6e 74 25 |F$=.F$,2|):point%|
|00000670| 21 28 32 38 2b 65 25 29 | 2b 3d 34 0d 02 80 30 20 |!(28+e%)|+=4...0 |
|00000680| 20 20 20 e7 20 c0 46 24 | 2c 31 29 3d 22 23 22 20 |   . .F$|,1)="#" |
|00000690| 46 24 3d c1 46 24 2c 32 | 29 3a 70 6f 69 6e 74 25 |F$=.F$,2|):point%|
|000006a0| 21 28 32 38 2b 65 25 29 | 2b 3d 38 0d 02 8a 2e 20 |!(28+e%)|+=8.... |
|000006b0| 20 20 20 e7 20 c0 46 24 | 2c 31 29 3d 22 b9 22 20 |   . .F$|,1)="." |
|000006c0| 46 24 3d c1 46 24 2c 32 | 29 3a 70 74 72 25 21 38 |F$=.F$,2|):ptr%!8|
|000006d0| 3d 26 37 34 30 30 30 32 | 31 0d 02 94 24 20 20 20 |=&740002|1...$   |
|000006e0| 20 24 28 70 74 72 25 2b | 31 32 29 3d 46 24 3a 70 | $(ptr%+|12)=F$:p|
|000006f0| 74 72 25 2b 3d 32 34 3a | 6e 25 2b 3d 31 0d 02 9e |tr%+=24:|n%+=1...|
|00000700| 07 20 20 cd 0d 02 a8 05 | ce 0d 02 b2 1b 70 74 72 |.  .....|.....ptr|
|00000710| 25 21 2d 32 34 3d 70 74 | 72 25 21 2d 32 34 20 84 |%!-24=pt|r%!-24 .|
|00000720| 20 26 38 30 0d 02 bc 17 | 3d 28 6e 25 2a 34 34 29 | &80....|=(n%*44)|
|00000730| 2b 39 36 2b 28 63 25 2a | 32 34 29 0d 02 c6 05 3a |+96+(c%*|24)....:|
|00000740| 0d 02 d0 32 f4 20 6d 65 | 6e 75 2c 20 69 63 6f 6e |...2. me|nu, icon|
|00000750| 20 28 73 74 61 72 74 69 | 6e 67 20 61 74 20 30 29 | (starti|ng at 0)|
|00000760| 2c 20 74 6f 20 77 68 69 | 63 68 20 73 75 62 6d 65 |, to whi|ch subme|
|00000770| 6e 75 0d 02 da 2b dd 20 | f2 77 69 6d 70 5f 73 75 |nu...+. |.wimp_su|
|00000780| 62 6d 65 6e 75 28 70 6f | 69 6e 74 25 2c 70 6f 69 |bmenu(po|int%,poi|
|00000790| 6e 74 32 25 2c 70 6f 69 | 6e 74 33 25 29 0d 02 e4 |nt2%,poi|nt3%)...|
|000007a0| 24 70 6f 69 6e 74 25 21 | 28 33 32 2b 28 70 6f 69 |$point%!|(32+(poi|
|000007b0| 6e 74 32 25 2a 32 34 29 | 29 3d 70 6f 69 6e 74 33 |nt2%*24)|)=point3|
|000007c0| 25 0d 02 ee 05 e1 0d 02 | f8 05 3a 0d 03 02 35 f4 |%.......|..:...5.|
|000007d0| 20 74 79 70 65 25 3d 33 | 20 66 6f 72 20 6f 6b 2f | type%=3| for ok/|
|000007e0| 63 61 6e 63 65 6c 20 20 | 2d 2d 20 20 61 6e 73 77 |cancel  |--  answ|
|000007f0| 65 72 25 3d 32 20 66 6f | 72 20 63 61 6e 63 65 6c |er%=2 fo|r cancel|
|00000800| 0d 03 0c 19 dd 20 a4 71 | 75 65 72 79 28 74 79 70 |..... .q|uery(typ|
|00000810| 65 25 2c 74 65 78 74 24 | 29 0d 03 16 0d ea 20 61 |e%,text$|)..... a|
|00000820| 6e 73 77 65 72 25 0d 03 | 20 1f 21 62 6c 6f 63 6b |nswer%..| .!block|
|00000830| 25 3d 30 3a 24 28 62 6c | 6f 63 6b 25 2b 34 29 3d |%=0:$(bl|ock%+4)=|
|00000840| 74 65 78 74 24 0d 03 2a | 4f c8 99 20 22 57 69 6d |text$..*|O.. "Wim|
|00000850| 70 5f 52 65 70 6f 72 74 | 45 72 72 6f 72 22 2c 62 |p_Report|Error",b|
|00000860| 6c 6f 63 6b 25 2c 31 36 | 2b 74 79 70 65 25 2c 22 |lock%,16|+type%,"|
|00000870| 51 75 65 72 79 20 66 72 | 6f 6d 20 22 2b 61 70 70 |Query fr|om "+app|
|00000880| 6c 69 63 61 74 69 6f 6e | 24 20 b8 20 2c 61 6e 73 |lication|$ . ,ans|
|00000890| 77 65 72 25 0d 03 34 0c | 3d 61 6e 73 77 65 72 25 |wer%..4.|=answer%|
|000008a0| 0d 03 3e 05 3a 0d 03 48 | 1d f4 20 53 65 6e 64 20 |..>.:..H|.. Send |
|000008b0| 61 20 77 69 6d 70 5f 65 | 72 72 6f 72 20 63 6c 6f |a wimp_e|rror clo|
|000008c0| 6e 65 0d 03 52 16 dd 20 | f2 77 69 6d 70 5f 6d 65 |ne..R.. |.wimp_me|
|000008d0| 73 28 74 65 78 74 24 29 | 0d 03 5c 1f 21 62 6c 6f |s(text$)|..\.!blo|
|000008e0| 63 6b 25 3d 30 3a 24 28 | 62 6c 6f 63 6b 25 2b 34 |ck%=0:$(|block%+4|
|000008f0| 29 3d 74 65 78 74 24 0d | 03 66 40 c8 99 20 22 57 |)=text$.|.f@.. "W|
|00000900| 69 6d 70 5f 52 65 70 6f | 72 74 45 72 72 6f 72 22 |imp_Repo|rtError"|
|00000910| 2c 62 6c 6f 63 6b 25 2c | 31 36 2c 22 4d 65 73 73 |,block%,|16,"Mess|
|00000920| 61 67 65 20 66 72 6f 6d | 20 22 2b 61 70 70 6c 69 |age from| "+appli|
|00000930| 63 61 74 69 6f 6e 24 0d | 03 70 05 e1 0d 03 7a 05 |cation$.|.p....z.|
|00000940| 3a 0d 03 84 27 dd 20 f2 | 77 69 6d 70 5f 72 61 64 |:...'. .|wimp_rad|
|00000950| 69 6f 28 74 65 6d 70 37 | 38 25 2c 74 65 6d 70 25 |io(temp7|8%,temp%|
|00000960| 2c 74 65 6d 70 32 25 29 | 0d 03 8e 22 62 6c 6f 63 |,temp2%)|..."bloc|
|00000970| 6b 25 21 30 3d 74 65 6d | 70 25 3a 62 6c 6f 63 6b |k%!0=tem|p%:block|
|00000980| 25 21 34 3d 74 65 6d 70 | 32 25 0d 03 98 2c 62 6c |%!4=temp|2%...,bl|
|00000990| 6f 63 6b 25 21 38 3d 28 | 74 65 6d 70 37 38 25 3c |ock%!8=(|temp78%<|
|000009a0| 3c 32 31 29 3a 62 6c 6f | 63 6b 25 21 31 32 3d 28 |<21):blo|ck%!12=(|
|000009b0| 31 3c 3c 32 31 29 0d 03 | a2 22 c8 99 20 22 57 69 |1<<21)..|.".. "Wi|
|000009c0| 6d 70 5f 53 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_SetIc|onState"|
|000009d0| 2c 2c 62 6c 6f 63 6b 25 | 0d 03 ac 05 e1 0d 03 b6 |,,block%|........|
|000009e0| 05 3a 0d 03 c0 1f dd 20 | a4 77 69 6d 70 5f 72 61 |.:..... |.wimp_ra|
|000009f0| 64 69 6f 28 74 65 6d 70 | 25 2c 74 65 6d 70 32 25 |dio(temp|%,temp2%|
|00000a00| 29 0d 03 ca 22 62 6c 6f | 63 6b 25 21 30 3d 74 65 |)..."blo|ck%!0=te|
|00000a10| 6d 70 25 3a 62 6c 6f 63 | 6b 25 21 34 3d 74 65 6d |mp%:bloc|k%!4=tem|
|00000a20| 70 32 25 0d 03 d4 22 c8 | 99 20 22 57 69 6d 70 5f |p2%...".|. "Wimp_|
|00000a30| 47 65 74 49 63 6f 6e 53 | 74 61 74 65 22 2c 2c 62 |GetIconS|tate",,b|
|00000a40| 6c 6f 63 6b 25 0d 03 de | 22 e7 20 62 6c 6f 63 6b |lock%...|". block|
|00000a50| 25 21 28 38 2b 31 36 29 | 20 80 20 28 31 3c 3c 32 |%!(8+16)| . (1<<2|
|00000a60| 31 29 20 8c 20 3d 31 0d | 03 e8 06 3d 30 0d 03 f2 |1) . =1.|...=0...|
|00000a70| 05 3a 0d 03 fc 18 f4 20 | 74 65 78 74 2c 20 77 69 |.:..... |text, wi|
|00000a80| 6e 64 6f 77 2c 20 69 63 | 6f 6e 0d 04 06 29 dd 20 |ndow, ic|on...). |
|00000a90| f2 77 69 6d 70 5f 69 63 | 6f 6e 28 74 65 78 74 24 |.wimp_ic|on(text$|
|00000aa0| 2c 62 6c 6f 63 6b 25 21 | 30 2c 62 6c 6f 63 6b 25 |,block%!|0,block%|
|00000ab0| 21 34 29 0d 04 10 10 ea | 20 6f 6c 64 24 2c 6d 6f |!4).....| old$,mo|
|00000ac0| 72 65 25 0d 04 1a 22 c8 | 99 20 22 57 69 6d 70 5f |re%...".|. "Wimp_|
|00000ad0| 47 65 74 49 63 6f 6e 53 | 74 61 74 65 22 2c 2c 62 |GetIconS|tate",,b|
|00000ae0| 6c 6f 63 6b 25 0d 04 24 | 13 6f 6c 64 24 3d 24 62 |lock%..$|.old$=$b|
|00000af0| 6c 6f 63 6b 25 21 32 38 | 0d 04 2e 12 e7 20 6f 6c |lock%!28|..... ol|
|00000b00| 64 24 3d 74 65 78 74 24 | 20 e1 0d 04 38 14 24 62 |d$=text$| ...8.$b|
|00000b10| 6c 6f 63 6b 25 21 32 38 | 3d 74 65 78 74 24 0d 04 |lock%!28|=text$..|
|00000b20| 42 28 62 6c 6f 63 6b 25 | 21 34 3d 62 6c 6f 63 6b |B(block%|!4=block|
|00000b30| 25 21 38 3a 62 6c 6f 63 | 6b 25 21 38 3d 62 6c 6f |%!8:bloc|k%!8=blo|
|00000b40| 63 6b 25 21 31 32 0d 04 | 4c 2b 62 6c 6f 63 6b 25 |ck%!12..|L+block%|
|00000b50| 21 31 32 3d 62 6c 6f 63 | 6b 25 21 31 36 3a 62 6c |!12=bloc|k%!16:bl|
|00000b60| 6f 63 6b 25 21 31 36 3d | 62 6c 6f 63 6b 25 21 32 |ock%!16=|block%!2|
|00000b70| 30 0d 04 56 2a c8 99 20 | 22 57 69 6d 70 5f 55 70 |0..V*.. |"Wimp_Up|
|00000b80| 64 61 74 65 57 69 6e 64 | 6f 77 22 2c 2c 62 6c 6f |dateWind|ow",,blo|
|00000b90| 63 6b 25 20 b8 20 6d 6f | 72 65 25 0d 04 60 0c c8 |ck% . mo|re%..`..|
|00000ba0| 95 20 6d 6f 72 65 25 0d | 04 6a 2c 20 20 c8 99 20 |. more%.|.j,  .. |
|00000bb0| 22 57 69 6d 70 5f 47 65 | 74 52 65 63 74 61 6e 67 |"Wimp_Ge|tRectang|
|00000bc0| 6c 65 22 2c 2c 62 6c 6f | 63 6b 25 20 b8 20 6d 6f |le",,blo|ck% . mo|
|00000bd0| 72 65 25 0d 04 74 05 ce | 0d 04 7e 05 e1 0d 04 88 |re%..t..|..~.....|
|00000be0| 05 3a 0d 04 92 12 f4 20 | 77 69 6e 64 6f 77 2c 20 |.:..... |window, |
|00000bf0| 69 63 6f 6e 0d 04 9c 23 | dd 20 a4 77 69 6d 70 5f |icon...#|. .wimp_|
|00000c00| 69 63 6f 6e 28 62 6c 6f | 63 6b 25 21 30 2c 62 6c |icon(blo|ck%!0,bl|
|00000c10| 6f 63 6b 25 21 34 29 0d | 04 a6 22 c8 99 20 22 57 |ock%!4).|..".. "W|
|00000c20| 69 6d 70 5f 47 65 74 49 | 63 6f 6e 53 74 61 74 65 |imp_GetI|conState|
|00000c30| 22 2c 2c 62 6c 6f 63 6b | 25 0d 04 b0 0f 3d 24 62 |",,block|%....=$b|
|00000c40| 6c 6f 63 6b 25 21 32 38 | 0d 04 ba 05 3a 0d 04 c4 |lock%!28|....:...|
|00000c50| 1f dd 20 f2 77 69 6d 70 | 5f 6f 70 65 6e 77 69 6e |.. .wimp|_openwin|
|00000c60| 64 6f 77 28 68 61 6e 64 | 6c 65 25 29 0d 04 ce 34 |dow(hand|le%)...4|
|00000c70| 21 62 6c 6f 63 6b 25 3d | 68 61 6e 64 6c 65 25 3a |!block%=|handle%:|
|00000c80| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 57 69 6e 64 |.. "Wimp|_GetWind|
|00000c90| 6f 77 53 74 61 74 65 22 | 2c 2c 62 6c 6f 63 6b 25 |owState"|,,block%|
|00000ca0| 0d 04 d8 2d 62 6c 6f 63 | 6b 25 21 32 38 3d 2d 31 |...-bloc|k%!28=-1|
|00000cb0| 3a c8 99 20 22 57 69 6d | 70 5f 4f 70 65 6e 57 69 |:.. "Wim|p_OpenWi|
|00000cc0| 6e 64 6f 77 22 2c 2c 62 | 6c 6f 63 6b 25 0d 04 e2 |ndow",,b|lock%...|
|00000cd0| 05 e1 0d 04 ec 05 3a 0d | 04 f6 20 dd 20 f2 77 69 |......:.|.. . .wi|
|00000ce0| 6d 70 5f 63 6c 6f 73 65 | 77 69 6e 64 6f 77 28 68 |mp_close|window(h|
|00000cf0| 61 6e 64 6c 65 25 29 0d | 05 00 31 21 62 6c 6f 63 |andle%).|..1!bloc|
|00000d00| 6b 25 3d 68 61 6e 64 6c | 65 25 3a c8 99 20 22 57 |k%=handl|e%:.. "W|
|00000d10| 69 6d 70 5f 43 6c 6f 73 | 65 57 69 6e 64 6f 77 22 |imp_Clos|eWindow"|
|00000d20| 2c 2c 62 6c 6f 63 6b 25 | 0d 05 0a 05 e1 0d 05 14 |,,block%|........|
|00000d30| 05 3a 0d 05 1e 18 dd 20 | a4 77 69 6d 70 5f 73 74 |.:..... |.wimp_st|
|00000d40| 72 69 6e 67 28 70 74 72 | 25 29 0d 05 28 12 ea 20 |ring(ptr|%)..(.. |
|00000d50| 74 65 6d 70 24 2c 63 6f | 75 6e 74 25 0d 05 32 15 |temp$,co|unt%..2.|
|00000d60| 74 65 6d 70 24 3d 22 22 | 3a 63 6f 75 6e 74 25 3d |temp$=""|:count%=|
|00000d70| 30 0d 05 3c 34 c8 95 20 | 3f 70 74 72 25 3c 3e 30 |0..<4.. |?ptr%<>0|
|00000d80| 20 80 20 3f 70 74 72 25 | 3c 3e 31 30 20 80 20 3f | . ?ptr%|<>10 . ?|
|00000d90| 70 74 72 25 3c 3e 31 33 | 20 80 20 63 6f 75 6e 74 |ptr%<>13| . count|
|00000da0| 25 3c 32 35 35 0d 05 46 | 27 20 20 74 65 6d 70 24 |%<255..F|'  temp$|
|00000db0| 2b 3d bd 28 3f 70 74 72 | 25 29 3a 70 74 72 25 2b |+=.(?ptr|%):ptr%+|
|00000dc0| 3d 31 3a 63 6f 75 6e 74 | 25 2b 3d 31 0d 05 50 05 |=1:count|%+=1..P.|
|00000dd0| ce 0d 05 5a 0a 3d 74 65 | 6d 70 24 0d 05 64 05 3a |...Z.=te|mp$..d.:|
|00000de0| 0d 05 6e 1d dd 20 f2 77 | 69 6d 70 5f 6d 65 6e 75 |..n.. .w|imp_menu|
|00000df0| 74 69 63 6b 28 6d 25 2c | 65 6e 74 25 29 0d 05 78 |tick(m%,|ent%)..x|
|00000e00| 25 6d 25 3d 6d 25 2b 32 | 38 2b 28 32 34 2a 65 6e |%m%=m%+2|8+(24*en|
|00000e10| 74 25 29 3a f4 20 70 74 | 72 20 74 6f 20 65 6e 74 |t%):. pt|r to ent|
|00000e20| 72 79 0d 05 82 18 e7 20 | 28 3f 6d 25 20 80 20 31 |ry..... |(?m% . 1|
|00000e30| 29 3d 30 20 3f 6d 25 2b | 3d 31 0d 05 8c 05 e1 0d |)=0 ?m%+|=1......|
|00000e40| 05 96 05 3a 0d 05 a0 21 | dd 20 f2 77 69 6d 70 5f |...:...!|. .wimp_|
|00000e50| 6d 65 6e 75 6f 6e 65 28 | 6d 25 2c 65 6e 74 25 2c |menuone(|m%,ent%,|
|00000e60| 65 6e 64 25 29 0d 05 aa | 0b ea 20 74 65 6d 70 25 |end%)...|.. temp%|
|00000e70| 0d 05 b4 14 e3 20 74 65 | 6d 70 25 3d 30 20 b8 20 |..... te|mp%=0 . |
|00000e80| 65 6e 64 25 0d 05 c8 47 | 20 20 e7 20 74 65 6d 70 |end%...G|  . temp|
|00000e90| 25 3d 65 6e 74 25 20 f2 | 77 69 6d 70 5f 6d 65 6e |%=ent% .|wimp_men|
|00000ea0| 75 74 69 63 6b 28 6d 25 | 2c 74 65 6d 70 25 29 20 |utick(m%|,temp%) |
|00000eb0| 8b 20 f2 77 69 6d 70 5f | 6d 65 6e 75 63 6c 65 61 |. .wimp_|menuclea|
|00000ec0| 72 28 6d 25 2c 74 65 6d | 70 25 29 0d 05 c9 07 ed |r(m%,tem|p%).....|
|00000ed0| 20 20 0d 05 d2 05 e1 0d | 05 dc 05 3a 0d 05 e6 1e |  ......|...:....|
|00000ee0| dd 20 f2 77 69 6d 70 5f | 6d 65 6e 75 63 6c 65 61 |. .wimp_|menuclea|
|00000ef0| 72 28 6d 25 2c 65 6e 74 | 25 29 0d 05 f0 16 6d 25 |r(m%,ent|%)....m%|
|00000f00| 3d 6d 25 2b 32 38 2b 28 | 32 34 2a 65 6e 74 25 29 |=m%+28+(|24*ent%)|
|00000f10| 0d 05 fa 18 e7 20 28 3f | 6d 25 20 80 20 31 29 3d |..... (?|m% . 1)=|
|00000f20| 31 20 3f 6d 25 2d 3d 31 | 0d 06 04 05 e1 0d 06 0e |1 ?m%-=1|........|
|00000f30| 05 3a 0d 06 18 1f dd 20 | f2 77 69 6d 70 5f 6d 65 |.:..... |.wimp_me|
|00000f40| 6e 75 74 6f 67 67 6c 65 | 28 6d 25 2c 65 6e 74 25 |nutoggle|(m%,ent%|
|00000f50| 29 0d 06 22 16 6d 25 3d | 6d 25 2b 32 38 2b 28 32 |)..".m%=|m%+28+(2|
|00000f60| 34 2a 65 6e 74 25 29 0d | 06 2c 0f 3f 6d 25 3d 3f |4*ent%).|.,.?m%=?|
|00000f70| 6d 25 20 82 20 31 0d 06 | 36 05 e1 0d 06 40 05 3a |m% . 1..|6....@.:|
|00000f80| 0d 06 4a 1d dd 20 a4 77 | 69 6d 70 5f 6d 65 6e 75 |..J.. .w|imp_menu|
|00000f90| 72 65 61 64 28 6d 25 2c | 65 6e 74 25 29 0d 06 54 |read(m%,|ent%)..T|
|00000fa0| 1c 3d 28 6d 25 3f 28 32 | 38 2b 28 32 34 2a 65 6e |.=(m%?(2|8+(24*en|
|00000fb0| 74 25 29 29 20 80 20 31 | 29 0d 06 5e 05 3a 0d ff |t%)) . 1|)..^.:..|
+--------+-------------------------+-------------------------+--------+--------+